home *** CD-ROM | disk | FTP | other *** search
/ APC & TCP 4 / APC & TCP 4.iso / cdsystem / rexxc / listfiles.rexx next >
OS/2 REXX Batch file  |  1996-09-28  |  271b  |  15 lines
  1. /* just to avoid using sed... */
  2.  
  3. parse arg Filename
  4. do while ~eof('STDIN')
  5.   Line=readln('STDIN')
  6.   Line=translate(Line,'','09'X)
  7.   Index=lastpos('#',Line)
  8.   if (Index>0) then
  9.     Line=left(Line,Index-1)
  10.   Line=word(Line,1)
  11.   if (pos('/',Line)>0) then
  12.     say Line
  13. end
  14.  
  15.